home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_c / cug191 / delay.asl < prev    next >
Text File  |  1986-05-25  |  2KB  |  69 lines
  1. ;
  2. ;    DELAY.ASM               (Lattice version)               20 Feb 86
  3. ;
  4. ;   /* ------------------------------------------------------------ */
  5. ;   /*      This is a portion of the SOUND EFFECTS LIBRARY.         */
  6. ;   /*                                                              */
  7. ;   /*      Copyright (C) 1986 by Paul Canniff.                     */
  8. ;   /*      All rights reserved.                                    */
  9. ;   /*                                                              */
  10. ;   /*      This library has been placed into the public domain     */
  11. ;   /*      by the author.  Use is granted for non-commercial       */
  12. ;   /*      pusposes, or as an IMBEDDED PORTION of a commercial     */
  13. ;   /*      product.                                                */
  14. ;   /*                                                              */
  15. ;   /*      Paul Canniff                                            */
  16. ;   /*      PO Box 1056                                             */
  17. ;   /*      Marlton, NJ 08053                                       */
  18. ;   /*                                                              */
  19. ;   /*      CompuServe ID: 73047,3715                               */
  20. ;   /*                                                              */
  21. ;   /* ------------------------------------------------------------ */
  22. ;
  23. ; -------------------------------------------------------------------------
  24. ;    Set up macros for segment values, etc.
  25. ;
  26.     INCLUDE DOS.MAC            ;Lattice gets from file.
  27. ;
  28.     DSEG                            ;Dummy DATA Segment
  29.     ENDDS
  30. ;
  31.     IF    LPROG
  32. ARGS    EQU    6                       ;Bytes on stack before args 
  33.     ELSE
  34. ARGS    EQU    4                       ;Bytes on stack before args
  35.     ENDIF
  36. ;
  37. ; -------------------------------------------------------------------------
  38. ;
  39.     PSEG                            ;Beginning of code segment
  40. ;
  41.     PUBLIC    delay
  42. ;
  43.         IF      LPROG
  44. delay    PROC    FAR
  45.         ELSE
  46. delay   PROC    NEAR
  47.         ENDIF
  48.         PUSH    BP
  49.         MOV     BP,SP
  50.         MOV     CX,[BP+ARGS]
  51. OUTLP:  PUSH    CX
  52.         MOV     CX,279
  53. INLP:   LOOP    INLP
  54.         POP     CX
  55.         LOOP    OUTLP
  56.         POP     BP
  57.     RET                       
  58. delay   ENDP
  59. ;
  60. ;
  61.     ENDPS    
  62.     END
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.